Option Explicit
Sub D_Sample047()
    Dim myName As Name
    Dim myWb   As Workbook
    Set myWb = Workbooks(1)					'Nï
    myWb.SendMail Recipients:="eTؼЦ}", Subject:="xlsɮװeT"
    'weTؼлPW
    Set myWb = Nothing						'
End Sub
